System System N D D > Raised Region Lowered Region Lowered Dot Raised Dot Raised Dottangle Lowered Regiongle Raised Regiongle Lowered Dotangle Lowered Edge Raised Edge Raised Edgeongle Lowered Edgeongle Graphics Stuff Name: 3D Paint Button Objects: paintObject "Down", paintObject "Up", Field "Caption Up", Field "Caption Down" Action: On buttondown, this object sinks as if it was pressed. Then on buttonUp it returns to the raised position and sends the text of field caption as a message to its parent. Buttonsseck Boxes 3D Paint Button FALSE ObjectCaption String buttonDown buttonUp ObjectCaption buttonDown buttonUp send to parent of self ObjectCaption string string String ObjectCaption :PHYSSIZE wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww :PHYSSIZE wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp caption up Caption caption down Caption 3D Objects Button FALSE ObjectCaption String buttonDown buttonUp ObjectCaption buttonDown buttonUp send to parent of self ObjectCaption string string String Caption Up Caption Down Name: 3D Object Button Objects: group "Down", group "Up", Field "Caption Up", Field "Caption Down" Action: On buttondown, this object sinks as if it was pressed. Then on buttonUp it returns to the raised position and sends the text of field caption as a message to its parent. Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP 10 Digit Segmented Display display ZworkObjects,workString,currentObject,currentDigit displayDigit FALSE "1,1,1,1,1,1,0" "0,1,1,0,0,0,0" "1,1,0,1,1,0,1" "1,1,1,1,0,0,1" "0,1,1,0,0,1,1" "1,0,1,1,0,1,1" "1,0,1,1,1,1,1" "1,1,1,0,0,0,0" "1,1,1,1,1,1,1" "1,1,1,1,0,1,1" displayDigit display display displayDigit workObjects workString currentObject currentDigit string displayDigit display 1,1,1,1,1,1,0 display 0,1,1,0,0,0,0 display 1,1,0,1,1,0,1 display 1,1,1,1,0,0,1 display 0,1,1,0,0,1,1 display 1,0,1,1,0,1,1 display 1,0,1,1,1,1,1 display 1,1,1,0,0,0,0 display 1,1,1,1,1,1,1 display 1,1,1,1,0,1,1 Digit Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit Q & " n & " display display show item of objects of self hide item of objects of self WorkString CurrentSegment CurrentBit string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP display ZworkObjects,workString,currentObject,currentDigit displayDigit FALSE "1,1,1,1,1,1,0" "0,1,1,0,0,0,0" "1,1,0,1,1,0,1" "1,1,1,1,0,0,1" "0,1,1,0,0,1,1" "1,0,1,1,0,1,1" "1,0,1,1,1,1,1" "1,1,1,0,0,0,0" "1,1,1,1,1,1,1" "1,1,1,1,0,1,1" displayDigit display display displayDigit workObjects workString currentObject currentDigit string displayDigit display 1,1,1,1,1,1,0 display 0,1,1,0,0,0,0 display 1,1,0,1,1,0,1 display 1,1,1,1,0,0,1 display 0,1,1,0,0,1,1 display 1,0,1,1,0,1,1 display 1,0,1,1,1,1,1 display 1,1,1,0,0,0,0 display 1,1,1,1,1,1,1 display 1,1,1,1,0,1,1 Digit Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Segmented Digit display ZWorkString,CurrentSegment,CurrentBit,workingObjects display display WorkString CurrentSegment CurrentBit workingObjects string RIGHT TOP RIGHT BOT LEFT BOT LEFT TOP Fill Radio Button ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Lowered Dot Caption Caption 1 3D Radio Button ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Raised Dot Lowered Dot Caption Caption 1 Radio Buttonsoxes Action: This object has no action scripts. Properties: There are two special properties of this object. ObjectChecked can be set or got to determine the checked stauts of this button. ObjectCaption can be set to change the caption of this object. cts parent. p "Lowered Dot" to this objects parent. Name: 3D Radio Button Objects: group "Raised Dot", group "Lowered Dot", Field "Caption"on" Name: Fill Radio Button Objects: group "Lowered Dot", ellipse "Dot", Field "Caption"tion"" checkObject ZObjList,CurrentObj Objectchecked buttonUp buttonUp Objectchecked Objectchecked ObjList CurrentObj checkObject Fill Radio Button ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Lowered Dot Caption Caption 1 Fill Radio Button ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Lowered Dot Caption Caption 2 Fill Radio Button ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Lowered Dot Caption Caption 3 Objectchecked false Objectchecked false checkObject ZObjList,CurrentObj Objectchecked buttonUp buttonUp Objectchecked Objectchecked ObjList CurrentObj checkObject Objectchecked false ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Raised Dot Lowered Dot Caption Caption 1 ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Raised Dot Lowered Dot Caption Caption 2 ObjectChecked value ObjectCaption String ObjectChecked Checked ObjectChecked ObjectCaption ObjectChecked value ObjectChecked ObjectCaption string String Raised Dot Lowered Dot Caption Caption 3 Radio Button Groups to handle buttonUp -- Init: setup local variables set checkObject to target set syslockscreen to true local ObjList,CurrentObj set ObjList to objects of self -- Set all of the radio buttons to unchecked do pop ObjList into CurrentObj set Objectchecked of CurrentObj to false until ObjList is Null -- Set the RadioButton that was pressed to -- checked set Objectchecked of checkObject to true set syslockscreen to false end buttonUp Example Script for Radio Button Groups 3D Round Check Box & " " & buttonUp buttonUp send to parent of self Raised Dot Lowered Dot Caption Caption Round Check Box & " " & buttonUp buttonUp send to parent of self Lowered Dot Caption Caption Name: Round Check Box Objects: group "Lowered Dot", ellipse "Dot", Field "Caption" Action: On buttonUp this object toggles the visiblility of the ellipse "Dot" and sends the text of field caption as a message along with the current visibility status of ellipse "Dot" to this objects parent. Name: 3D Round Check Box Objects: group "Raised Dot", group "Lowered Dot", Field "Caption" Action: On buttonUp this object toggles the visiblility of the group "Lowered Dot" and sends the text of field caption as a message along with the current visibility status of group "Lowered Dot" to this objects parent. Round Check Boxes